home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (PO) / Nibble Volume 11, No. 08 (1990-08)(MindCraft Publishing)(Side A).zip / Nibble Volume 11, No. 08 (1990-08)(MindCraft Publishing)(Side A).po / DAY.OF.WEEK.bas < prev    next >
BASIC Source File  |  1996-12-24  |  527b  |  2 lines
  1. 10  PRINT "ENTER DATE: MM,DD,YYYY";: HTAB 13: INPUT "";M,D,Y:A = Y -1:DY = A + INT(A/4) - INT(A/100) + INT(A/400): DIM E(12): FOR I = 1 TO 12: READ E(I): NEXT I:E(2) = E(2) +(Y/4 =  INT(Y/4)) -(Y/100 =  INT(Y/100)) +(Y/400 =  INT(Y/400)): FOR I = 1 TO M:DY = DY +E(I): NEXT I
  2. 20 DY = DY -E(I -1) +D:G = DY - INT(DY/7) *7: FOR I = 0 TO G: READ N$: NEXT I: PRINT N$;"DAY": DATA 31,28,31,30,31,30,31,31,30,31,30,31: DATA SUN,MON,TUES,WEDNES,THURS,FRI,SATUR: PRINT : INPUT "ANOTHER DATE? (Y/N) ";W$: PRINT : IF W$ = "Y"  THEN  RUN